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INTRODUCTIONTOAPI 

This manual serves as a guide to tlie advanced programmer. It 
describes RAM memory locations and their use as applies to the Apple- 
Cat II. Also included are some routines showing use of these memory 
locations, or registers as they're called, to control the modem. With this 
information, the advanced programmer can write or adapt machine 
language or BASIC routines to accomplish the individual tasks that he or 
she may desire. 

The manual is organized by the registers, in ascending order, followed 
by the routines using them, collectively called 'CATPACK.' Each of the 
registers is broken down into its bit components and the function of each 
is described. 

There are two indexes included in this appendix— one ordered 
numerically by register, the other ordered alphabetically by bit compo- 
nent description. Any register or bit component can be located easily 
For example, if the register name or address is known, information in the 
first index will indicate where it can be found; if a particular bit compo- 
nent is needed, the second index will indicate its whereabouts. 

'CATPACK' is a package of routines that shows how to control the 
Apple-Cat II through machine language. These routines show the use of 
the registers described in the previous section. One may want to modify 
them to meet specific applications requirements. 




REGISTER INDEX 



Base Address* 
Hex Decimal 

APPLE-CAT II 



$C080 


-16256 


$C081 


-16255 


$C082 


-16254 


$C083 


-16253 


$C089 


-16247 


$C08A 


-16246 


$C08B 


-16245 


$C08C 


-16244 


$C08D 


-16243 


$C08E 


-16242 


$C08F 


-16241 


212 CARD 


$C080 


-16256 



Read 



Write 



Page 



Apple-Cat II or 212 card) to obtain slot-adiusted address. 



SWBYT 


DACBYT 


4,5 


TON BYT 


SQUBYT 


5,7 


— 


SHBYT 


8 


— 


BSRBYT 


9 


— 


RECBYT 


10 


— 


CON 


11 


IN DAT 


SPDBYT 


12 


— 


COM 


13 


ACBYT 


XMTBYT 


14,15 


— 


OUTDAT 


15 


STATUS 


DEVBYT 


16,17 





212BYT 


18 


*N to decima 


base address (wtiere N 


= slot of 



DIT COMPONENT INDEX 



Bit Component 

Audio detect 
BSR 60 Hz input 
BSR 120 KHz output 
Carrier detect 
Carrier detect timing 
Clear DV 
Clear to send 
DAC bits 

DV from TouchTone 
Firmware switches 
From UART txd to 
IRQ ring enable 
IRQ 29.12 Hz enable 
IRQ 29.12 Hz status 
Microphone squelch 



Register 

SWBYT 

SWBYT 

BSRBYT 

SWBYT 

RECBYT 

SHBYT 

ACBYT 

DACBYT 

SWBYT 

SWBYT 

DEVBYT 

XMTBYT 

BSRBYT 

TONBYT 

SQUBYT 



Page 

4 
4 
9 
4 
10 



14 
5 
4 
4 

17 

15 
9 

.5 
7 



Continued 

Bit Component 

Mode control bits 

Receive baud rate 

Receive data from UART 

Ring detect 

Speaker squelcli 

Switch fiook 

Tape recorder motor control 

TouchTone bits 

Transmit baud rate 

Transmit data to UART 

Transmitter mode 
UART command — receiver 
UART command — transmitter 
UARTcontrol^parity enable 
UART control — parity 
UART control— # stop bits 
UART control— # data bits 
UARTrxd to 

UART status — overrun error 
UART status— framing error 
UART status — parity error 
UART status— tx data 

register empty 
UART status— rx data 

register full 
UART status— transmit IRQ 
UART status — receive IRQ 
UART status— ring IRQ 
212 analog loopback 
212 carrier detect 
212 character length 
212 digital loopback 
212 enable 
212 mode 

212 remote digital loopback 
212 reset option 



Register 

RECBYT 

SPDBYT 

INDAT 

ACBYT 

SQUBYT 

SHBYT 

SQUBYT 

TONBYT 

SPDBYT 

OUTDAT 

XMTBYT 

COM 

COM 

CON 

CON 

CON 

CON 

DEVBYT 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

STATUS 

212BYT 

ACBYT 

212BYT 



Page 

10 
12 
12 
14 
7 



7 
5 
12 
15 
15 
13 
1 
1 
1 
1 
1 

17 
16 
16 
16 



16 

16 
16 
16 
16 
18 
14 
18 



212BYT 


18 


SQUBYT 


7 


SQUBYT 


7 


212BYT 


18 . 


212BYT 


18 








SWBYT 
$C080 
-16256 
READ 



7 


6 


5 


4 


3 


2 


1 





DV 


BSR 


CARRIER 


AUDIO 


SW4 


SW3 


SW2 


SW1 


FROM 


60 HZ 


DETECT 


DETECT 










TOUCH 


INPUT 














TONE 

















Bit 

7 DV FROM TOUCHTONE 
1 valid TouchTone present 

no valid TouchTone present (CLRDV high) 

6 BSR 60 HZ INPUT 

continuous 1 no 60 Hz 
alternating 60 Hz 

5 CARRIER DETECT 

1 carrier present 

no carrier present 

4 AUDIO DETECT* 

1 no audio present 

audio present 

3 FIRMWARE SWITCH 4 

1 open (off) 

closed (on) 

2 FIRMWARE SWITCH 3 

1 open (off) 

closed (on) 

1 FIRMWARE SWITCH 2 

1 open (off) 

closed (on) 

FIRMWARE SWITCH 1 

1 open (off) 

closed (on) 

"Audio detect input changes witti speech, dial tone, and busy signal. The input to the 
audio detector is the output of the receive filter 



DACBYT 
$C080 
-16256 
WRITE 



7 


6 


5 


4 


3 


2 


1 





MOST 














LEAST 


SIGNIFI- 














SIGNIFI- 


CANT 














CANT 


BIT 














BIT 



8 DAC bits 



TONBYT 
$C081 
-16255 
READ 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


Not 


IRQ 


TOUCH 


TOUCH 


TOUCH 


TOUCH 


Used 


Used 


Used 


29.12 


TONE 


TONE 


TONE 


TONE 








HZ 


BIT 


BIT 


BIT 


BIT 








STATUS 


08 


04 


02 


D1 



Bit 

7 Not used 

6 Not used 

5 Not used 

4 IRQ 29,12 HZ STATUS 
1 IRQ has not occurred 
IRQ has occurred 

3-0 TOUCHTONE BITS 



digit 
1 
2 
3 
4 
5 
6 
7 



D8 










D4 


D2 


D1 








1 





1 








1 


1 


1 








1 





1 


1 


1 





1 


1 


1 




igit 


D8 


D4 


D2 


D1 


8 













9 










1 







D 


1 





* 







1 


1 


# 




1 








A 




1 





1 


B 




1 


1 





C 




1 


1 


1 


D 















TIMING: Within 40 ms of a valid received tone pair the data bits D8, 
D4, D2, and D1 will become valid. Seven microseconds after the data 
bits have become valid, DV will go high. The data bits will remain valid 
and DV will remain high as long as a valid tone pair is present at the 
receiver input. Within 40 ms of the removal of a valid tone pair from 
the input, the decoder will recognize a valid pause. DV goes low 
approximately 45 ms after the tone pair is removed. The data bits will 
be cleared (set to 0) 4.4 ms after DV is lowered. The DV strobe will be 
of at least the same duration as the incoming tone pair 

HANDSHAKE MODE: In this mode, the DV strobe is polled at least 
once every 40 ms to determine whether a new valid tone pair has 
been detected. If DV is high, indicating that a new valid tone pair has 
been detected, store the coded data present at the data bits of the 
receiver and clear DV by pulsing CLRDV high. With some systems 
operating in the handshake mode, it may be desirable to know when 
the valid tone has ended. Qrdinarily this would be indicated by the 
falling edge of DV. However, in the handshake mode, DV is cleared 
by the monitoring system each time a new valid tone is detected 
and, therefore, cannot be used to determine when a valid tone pair 
has ended. The termination of a valid tone pair in this case may 
be observed by detecting the clearing of the data bits. Since, in 
hexadecimal format (the mode normally used with a handshake 
interface), the all zero state represents a commonly unused tone pair 
(D), the end of a valid tone pair may be detected by sensing the all 
zero state. 

NOTE: DV is read as SWBYT bit 7, DV is cieared in SHBYT bit 0. 




SQUBYT 
$C081 
-16255 
WRITE 



7 


6 


5 


4 


3 


2 


1 





212 


Not 


212 


TRMC 


TRMC 


TRMC 


SSQ 


MSQ 


ENABLE 


Used 


MODE 













Bit 

7 212 ENABLE* 
1 212 disable 

212 enable 

6 Not used 

5 212 MODE 

1 212 originate 
212 answer 

4-2 TAPE RECORDER MOTOR CONTROL 
1 1 1 motor on 

000 motor off 

1 SPEAKER SQUELCH 

1 not squelchied 

squelchied 

MICROPHONE SQUELCH 

1 squelched 

not squelched 

*212 ENABLE is set to 1 in 212 analog loopback test (see 212BYT), 

NOTE: Wtien changing ANS/ORIG mode, first write word with bit 5 in desired state and 
with bit 7 high; then wait 5-10 msec, and write word with same state for bit 5 but with bit 7 
low. Bit 7 must be left enabled (low) whenever operating in 212. 




SHBYT 
$C082 
-16254 
WRITE 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


Not 


Not 


Not 


Not 


SH 


CLRDV 


Used 


Used 


Used 


Used 


Used 


Used 







Bit 

7 Not used 

6 Not used 

5 Not used 

4 Not used 

3 Not used 

2 Not used 

1 SWITCH HOOK 

1 off hook (holding telephone line) 

on hook (not holding telephone line) 

CLEAR DV (Reset TouchTone ■) 

1 clear DV to 
DV set 




BSRBYT 
$C083 
-16253 
WRITE 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


Not 


Not 


Not 


IRQ 


BSR 


Not 


Used 


Used 


Used 


Used 


Used 


29.12 HZ 
ENABLE 


120 KHZ 
OUTPUT 


Used 



Bit 

7 
6 
5 
4 
3 
2 







Not used 

Not used 

Not used 

Not used 

Not used 

IRQ 29.12 HZ ENABLE 
1 IRQ disabled/reset* 

IRQ enabled 

BSR 120 KHZ OUTPUT 

1 disabled 
enabled 
Not used 



*To clear IRQ, Bit 2 must be disabled, then enabled immediately. 




RECBYT 
$C089 
-16247 
WRITE 



7 

Not 

Used 


6 
CDT 


5 
MC6 


4 
MC5 


3 
MC4 


2 

MC3 


1 
MC2 



MCI 



Bit 

7 Not used 

6 CARRIER DETECT TIMING* 
1 normal carrier 
fast carrier 

5-0 MODE CONTROL BITS 

mode value 

103 ANS $64 

103 ANS (mark carrier detect) $60 

103ORIG $65 

103 ORIG (mark carrier detect) $61 

202 $5C 

202 (mark carrier detect) $58 

DEAF (TDD) $2D 

ANS V.21 $66 

ANS V.21 (mark carrier detect) $62 

ORIG V.21 $67 

ORIG V.21 (mark carrier detect) $63 

900 Hz detect $6F 

dial tone & busy signal t $7E 

"Normal carrier 

103, V.21: on delay— 150ms 
off delay — 50ms 
202, V,23: on delay— 38ms 
off delay — 13ms 
Fast carrier (must be used in TDD mode) 
AN modes: on delay — 9ms 
off delay — 9ms 

tTtiis mode does not detect dial tone or busy but simply puts the receive filter in the 
frequency range of dial tone, busy signals, and ringing. The audio detect bit (SWBYT bit 4) 
should be looked at to determine what Is dial tone, busy, or speech. 



10 




CON 
$C08A 
-16246 
WRITE 

UART CONTROL BYTE 



7 


6 


5 


4 


3 


2 


1 





Not 


PE 


P2 


P1 


SB2 


SB1 


DB2 


DB1 


Used 

















Bit 

7 
6 

5-4 



Not used 

PARITY ENABLE 

I enabled 

disabled 
PARITY* 

II mark 
10 odd 

01 space 
00 even 



3-2 



NUMBER OF STOP BITS 
11 — 

10 2 
01 1.5 

00 1 

NUMBER OF DATA BITS 

11 8 
10 6 

01 7 
00 5 

*The parity bit is additional to the number of data bits. 



1-0 




INDAT 
$C08B 
-16245 
READ 

RECEIVE DATA FROM UART 



7 


6 


5 


4 


3 


2 


1 





MOST 














LEAST 


SIGNIFI- 














SIGNIFI- 


CANT 














CANT 


BIT 














BIT 



SPDBYT 
$C08B 
-16245 
WRITE 



7 
TBR4 


6 
TBR3 


5 
TBR2 


4 
TBR1 


3 
RBR4 


2 
RBR3 


1 
RBR2 



RBR1 



Bit 

7_4 TRANSMIT BAUD RATE* 
3-0 RECEIVE BAUD RATE* 



*baud 
rate 



bit 
time 



actual 
baud 



percent value 
error 







rate 


1200 


.831 ms 


1202.75 


600 


1.66 ms 


601.38 


300 


3.33 ms 


300.68 


150 


6.65 ms 


150.34 


110 


9.15 ms 


109.27 


75 


13.3 ms 


75.17 


50 


20.0 ms 


50.11 


45.5 


22.0 ms 


46.26 



.2 


$0 


.2 


$1 


.2 


$2 


.2 


$3 


.6 


$5 


.2 


$6 


.2 


$7 


1.7 


$4 



NOTE: Transmit and receive baud rates are independent 



12 



13 




Bit 

7 
6 
5 
4 
3-2 



1-0 



COM 
$C08C 
-16244 
WRITE 

UART COMMAND REGISTER 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


Not 


Not 


T2 


T1 


R2 


R1 


Used 


Used 


Used 


Used 











Not used 
Not used 
Not used 
Not used 

TRANSMITTER 

11 xmit off 

10 xmit on, enable IRQ 
01 xmit on, disable IRQ 

00 xmit break (space) 

RECEIVER 

11 — 

10 receive on, enable IRQ 

01 receive on, disable IRQ 
00 receiver off 



U 




ACBYT 
$C08D 
-16243 
READ 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


Not 


Not 


CIS 


212 


Not 


RING 


Used 


Used 


Used 


Used 




CARRIER 

DETECT 


Used 


DETECT 



Bit 

7 
6 
5 
4 
3 



Not used 
Not used 
Not used 
Not used 

CLEAR TO SEND 
printer hiandshake (busy) 
follows input 
2 212 CARRIER DETECT 
1 carrier present 

no carrier present 

1 Not used 

RING DETECT* 

1 ring present 

ring not present 
*lf IRQ enabled on ring, IRQ occurs on leading edge of ring (wtien RING goes higti) 



14 



XMTBYT 
$C08D 
-16243 
WRITE 



15 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


Not 


IRQ 


XM4 


XM3 


XM2 


XM1 


Used 


Used 


Used 


RING 
ENABLE 











Bit 

7 Not used 

6 Not used 

5 Not used 

4 IRQ RING ENABLE* 
1 disabled/reset 
enabled 
3-0 TRANSMITTER MODE 
function 
103 ANS 
103ORIG 
CCITTANS 
CCITTORIG 
DEAF (TDD) 
202 SOFT CAR 
202 U.S. orCCITTV.23 
REV CHAN (VIEWDATA) 
disabled 

*To clear IRQ. write 1 then 



value 
$0 
$1 
$2 
$3 
$4 
$5 
$6 
$7 

>$7 



space Hz 


mark Hz 


2025 


2225 


1070 


1270 


1850 


1650 


1180 


980 


1800 


1400 


900 




2100 


1300 


450 


390 




off (quiet 



OUTDAT 

$C08E 

-16242 

WRITE 

TRANSMIT DATA TO UART 



7 


6 


5 


4 


3 


2 


1 





MOST 














LEAST 


SIGNIFI- 














SIGNIFI- 


CANT 














CANT 


BIT 














BIT 



r 




STATUS 
$C08F 
-16241 
READ 

UART STATUS REGISTER 



7 
S8 


6 
S7 


5 
86 


4 
S5 


3 
S4 


2 
S3 


1 
S2 



St 



Bit 




7 


OVERRUN ERROR 




1 error 




ok 


6 


FRAMING ERROR 




1 error 




ok 


5 


PARITY ERROR 




1 error 




ok 


4 


TX DATA REG EMPTY 




1 empty 




full 


3 


RX DATA REG FULL 




1 full 




empty 


2 


TRANSMIT IRQ 




1 transmit IRQ 




no transmit IRQ 


1 


RECEIVE IRQ 




1 receive IRQ 




no receive IRQ 





RING IRQ 




1 no IRQ 




IRQ 



16 



DEVBYT 
$C08F 
-16241 
WRITE 

INPUT/OUTPUT SELECTION REGISTER* 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


Not 


Not 


TXD2 


TXD1 


RXD2 


RXD1 


Used 


Used 


Used 


Used 











17 



Bit 

7 
6 
5 
4 
3-2 



Not used 

Not used 

Not used 

Not used 

FROM UARTTXDTO 
11 — 

10 add-on 212 
01 printer port 
00 main modem 



1-0 



UART RXD TO 
11 — 

10 add-on 212 
01 printer port 
00 main modem 

"Register must be written to when entering 212 mode 




Bit 

7 
6 
5 



2-1 







212BYT 
$C080 
-16256 
WRITE 



7 


6 


5 


4 


3 


2 


1 





Not 


Not 


AL 


DL 


RDL 


CL2 


CL1 


RST 


Used 


Used 















Not used 

Not used 

ANALOG LOOPBACK 
1 analog loopbacl^ 

normal 

DIGITAL LOOPBACK 

1 digital loopback 

normal 

REMOTE DIGITAL LOOPBACK 

1 remote digital loopback 
normal 



212 CHARACTER LENGTH* 
10 10 bits 
01 9 bits 

RESET 

1 normal 

reset option 

"Length includes one start and one stop bit 

NOTE: Procedure for writing 

1 ) Write with bits as desired and bit low. 

2) Delay at least 500 ms, 

3) Write with bit high, all other bits unchanged. 



osoo 



00E9 
OOEA 



00E4 

00E3 



F C5S 
0033 
FD6A 




1 IL "CAIPACK" 
;A PACh.AGE OF ROUTINES THAT WILL SERVE 
;Ai3 EXAMF-'LES DF HOW TO ACCESS THE 
:APF-'LE-GAT MODEM THROUBH ASSEMBLY 
SLANGUAGE. THEi3E ROUTINES ARE DEBIONED 
; TO BE EXAMPLES, <-lND VOU MAY WANT TO 
; MODIFY I HEM 10 MFEV YOUR NEEDS. 

;BY GREG SEITZ 

;COPVRIGHT (C> ;[9S1 NOVATION INC. 

:REV 1. 1 13-FEB-82 

:ALL COMMERCIAL RIGHTS RESERVED 

;NOTE: SOME OF THE STORAGE LOCATIONS 
;USED IN THIS PROGRAM MAV CONFLICT WITH 
;APPLE-SOFT OR INTEGER BASIC SO IF YOU 
;WILL BE OSING EIIHER YOU MUST MAKE SURE 
;THAT NO CONFLICTS ARISE... 

;WARNING:MOST DF THESE ROUJINES WILL 
; RETURN WITH THE REGISTERS WIPED OUT. 
:S0 IF VOU NEED 10 SAVE 1 HE VALUE 
;0F A REGISTER YOU SHOULD DO SO BEFORE 
: CALL I IMG ANV OF THESE ROOTINES. 



DLYL 


EPZ 


*£■? 


DI_.YH 


EPZ 


»EA 


F 1 F- 


EPZ 


tE5 


FlI 


EPZ 


$E6 


F2F 


EPZ 


*E7 


F2I 


EPZ 


*EB 


DACBV F 


EQU 


*COSO 


CMDTAE 


EPZ 


fJS 


CMD 


EPZ 


«5D 


CMDLOC 


EPZ 


$97 


IRQ 


EQU 


*3FE 


FRACl 


EPZ 


*E1 


INTl 


EPZ 


TEO 


FRAC2 


EPZ 


tE4 


IliT2 


EPZ 


*E3 


03 


EPZ 


t04 


C0UN1 


EPZ 


*11 


TEMPX 


EPZ 


tic 


TEMPY 


EPZ 


«1D 


CARSTS 


EPZ 


tlF 


ZCTMP 


EPZ 


tF6 


CROSS 


EPZ 


«02 


HOME 


EQU 


SFC5S 


PROMPT 


EPZ 


t33 


GETLN 


EDO 


«FD6A 


C7 


EPZ 


tio 


KEYBUF 


EQU 


1200 


DIGBUF 


EQU 


$350 


WAIT 


EQU 


*FCAG 


DIALSW 


EQU 


*30C 


SLG T 


EUU 


t2Fl 


KEYCLR 


EDO 


*C0I0 


XM7RAM 


EPZ 


IIB 













1 


M^m 














i^^SaBE 




L.ISA 


'1 


^ 




CATPACK 




COOO 






61 


KEYDAT EQU 


*C000 


cose 






62 


COM EQU 


tC08C 


C08D 






63 


XMTBYT EDU 


*COBD 


C03A 






64 


CON EQU 


*coaA 


coa3 






65 


BSRBYT EQU 


*C083 


coa2 






66 


SHBYT EQU 


*C0B2 


C0131 

cosi 






67 
68 


1 ONBYT EGO 
SQUBYT EQU 


* 


COBl 




tjoei 




CO BO 






69 


SWBYT EQU 


*COBO 


COS'? 






70 


RECBYT EQU 


tC039 


COBB 






71 


INDAT EQU 


*COBB 


COBE 






72 


OUTDAT EQU 


*COBE 


COBB 






73 


SPDBYT EQU 


■SC03B 


COBF 






74 


STATUS EQU 


tCOBF 


COBD 






75 


ACBYT EQU 


*C03D 


COBF 






76 


DEVEYT EQU 


SiCOSF 


FDED 






77 


COUT EQU 


IFDED 


FDFO 






73 


COUTl EQU 


*FDFO 


OSOO 






7 9 






OSOO 






BO 


; 




OSOO 






31 


; TFHE FOLLOWING ROUTINE IS A TYPICAL 


0800 






32 


; EXAMPLE OF WHAT YOU WOULD DO UPON 


OSOO 






83 


;ENTRY TO A MODEM PROGRAM. FIRST WE 


C'SCiO 
OSOO 






34 
85 


;GET THE SLO 
liJUMP TO OUR 


H 


1 HEN WE SAVE IT AND 


ANG UF-' RGUT INE. 


OSOO 


AO 


20 


36 


BLOTINIT LDY 


+tt20 :SLDr 2 


0802 


8C 


Fl 02 


8 7 


STY 


SLOT 


0805 


20 


4C 'JO 


SB 


JSR 


RES IRQ 


0808 


20 


FE 08 


S9 


JSR 


HANOI nHAhJB UP 


080B 


A9 


00 


90 


LDA 


tt*00 ; CLEAR CARRIER STATUS (RAM VER 


S I FJN 












030D 


8!=^; 


IF 


91 


BTA 


CARSTS ;TD WHATEVER IT IS NOW. 


OBOE 


60 




92 


RTS 




0810 






93 






00 1 






94 


; 




08 3 ':) 






95 


;THE FOLLOWING ROUTINE IS F HE OUTPUT 1 


0810 






96 


;T0 MODEM ROUTINE, SEND A CHARACTER TO 


0810 






S'7 


;n THROOGH THE ACCUMULATOR. IN A 


08 1 






93 


; ACTUAL PROGRAM IT WOULD ALSO BE A GOOD 


oaio 






' 


,>9 


:IDEA rO CHECH.: FOR CARRIER BEFORE 


08 1 






1( 


10 


;JUMPIIMG TO THIS ROUTINE. | 


0310 


48 




li 


1] 


TTDUT PFIA 


;SAVE THE INPUT 


031 1 


AC 


F 1 02 


K 


'2 


LDY 


SLOT ;GE"F THE SLOT OF THE MODEM 


0814 


B9 


BE CO 


1' 


13 


TTGUTl L.DA 


STATUS, Y ;BEE IF MODEM READY 


0817 


29 


in 


1< 


14 


AND 


#7.00010000 ;T0 SEND A CFtARACTER OUT 


0319 


F 


K9 


3 ( 


15 


BEQ 


TTOUTl ;LOOP UNTIL READY 


08 1 B 






If 


)6 


;NOW WE HAVE 


THE GO-AHEnD FROM THE MODEM 


08 IB 






H 


>7 


;S0 LETS GIVE 


n WHAT IT WANTS. . . 


OS 1 B 


68 




1( 


13 


F-LA 


: RECOVER THE ACCOM. 


OBIC 


99 


BE CO 


1' 


,9 


ST A 


DUTDAI.V :SEND If ON 10 YUE MODEM. 


08 ir 


60 




1 10 


RTS 


; RE TURN. 


0820 






1 1 i 






0320 






1 12 


: THE FOLLOWING ROUTINE IS THE INF-'UT 


OB 20 






113 


:FROM MODEM ROUIINE, IT WFLL RETUFv'N 


0320 






114 


;A CHARACTER 


THROUGH THE ACCOM. AGAIN. 


0820 






115 


J IT WOULD BE 


A GOOD IDEA IF YOU TESTED 


0820 






] 16 


:FOR CARRIER 


BEFORE CALLING THIS ROUTINE 



20 



21 




L I BA 2 . 5 



0820 








i 3 / 


0820 


Ac; 


Fl 


02 


130 


0823 


B9 


8F 


t:o 


119 


0326 


29 


08 




120 


0828 


FO 


F9 




121 


082 A 








122 


032fi 


AS 


IB 




123 


08 2 C 


99 


8D 


GO 


324 


oa2F 


B9 


SB 


CO 


125 


0832 


60 






126 


0833 








127 


0833 








] 28 


0833 








129 



0833 
0833 
0833 



0S33 


20 


FE 


03 


0836 


20 


2B 


09 


AS 








0839 


SD 






083 A 


CI 


DO 


DO 


083D 


CC 


C5 


AD 


0840 


C3 


CI 


D4 


0843 


BA 


CB 


D5 


0846 


CF 


C7 


AO 


0849 


D5 


DO 




084B 


ao 


<:>':> 




08 4 D 


4C 


62 


08 


0850 


33 






oasi 


60 






0852 


AC 


Fl 


02 


0855 


B9 


80 


CO 


0858 


29 


20 





085A DO F4 
08bC A5 IF 



0860 
HONE 
0362 



DO Dl 

B9 8D CO 



0865 29 
0867 



II 
6E 



0869 20 2B 09 
0360 8D 

0S6D 41 50 50 

0870 4C 45 2D 
0873 43 41 54 
0876 3A 52 49 
0879 4E 47 2E 
08 7 C 2E 



TTIN: 

LDV SLUT 

TTINl LDA STATUS, V 

AND ttV.OOOOlOOO 

BED TTINl 

;NOW WE HAVE THE GO-AHEAD 

LDA XMTRAM 

STA XMTBVT.Y 

LDA INDAT.Y 

RTS 



138 
139 



;GEr THE SLOT OF THE MODEM 
; CHECK TO SEE IF 
SA CHAR WAITING TO BE READ. 
;N0 SO KEEF WAITING. 
"ROM THE MODEM. SO LET'3 BE"! IT. 
;BEI F^'AM VERSION OF XMX TTER 
: CLEAR STATUS PORT 
;GET THE CHARACTER 
; RET URN WI FH A CHAR! 



ROUIIWE n: CHECF FOR CARRIER 
IF NO CARRIER THEN CHECF. FOR 
RING... AND ATTEMPT TO HOOK UP. 
IF WE AREN'T HOOKED UP AFTER ALL 
THAT, THEN WE RETURN WITH 1 HE 
CARRY BIT CLEAR OTHERWISE WE 
RETURN WITH THE CARRV BIT SET TO 
INDICATE THAT WE ARE CDNNECVED 
THIS ROUTINE ALSO DISPLAYS PROMPTS 
AS TO WHAl IS GOING ON, 

IT WILL ALSO DETECT A CHANGE IN THE 
STATUS OF THE CARRIER AND HANGUP THE 
PHONE IF THE CARRIER WAS ON AND IS 
NOW OFF. 
HANGUP JSR HANGJ ; HANG UP 



JSP PRINTIT 



; TELL THE USER THAT 1 HE FONE H 



HEX 8D ;HUNG UP 

ASC ■■ APPLE -CA I": HUNG UP" 



148 
149 



155 
3 56 



158 
159 



161 
162 



HEX 3D00 

JMP CHKRNG 

SEC 

RTS 

LDV SLOT 

LDA SWBYT, Y 

AND tt'/.OO 100000 

BNE CARFND 

LDA CARSTS 

AND ttV.OO 100000 

BNE HANGUP 

LDA ACBYT , Y 

AND #7,00000001 

BEQ NOCAR 

JSR PRINTIT 

HEX 8D 

ASC ^APPLE-CAT: RING 



; CONTINUE ON. . . 

;3ET CARRY TO INDICATE THAT 

;WE HAVE A CARRIER AND RETURN 

;GET THE CARD SLOT 

:QEr CARRIER BYTE 

;MASF:. CARRIER BIT 

;WE HAVE A CARRIER' 

;GET OLD STATUS 

;SEE IF IT WAS ON 

; I r WAS ON SO WE HANG UP THE P 

!N0 CARRIER, SO CHECK FOR RING 

;MASK RING DIT. 

; PHONE NOT RINGING. 





^ 




LISA 2.5 






CATPACI:; 




08 7D 3D OO 




163 


HEX 8D00 




US7F B9 8D 


CO 


3 64 


riNRNG LDA ACBYT. V ;LET IT F-INISH FilNGlNG 




0332 29 01 




1.S5 


AND ttV.OOOOOOOl ; MASK RING BU 




0834 DO F9 




1 66 


BNE FTNRNG ; ST ILL RINGING 




0886 




167 


;PHUNF 13 DONE RINGING, NOW WE WILL 




0336 




3 6B 


:WA11 FDR A CARRIER TO COME IN. 




0886 20 5F 

0089 

0889 


09 


169 


JSR INIT :TURN ON MODEM 






171 


;GIVL OTHER SIDE 20 SECS TO GET 




0889 




172 


; CARRIER GOING. 




0889 20 2B 


(.19 


173 


JSR PRINTIT 




0S8C 3D 




174 


HEX SD 




088 D 41 50 


50 


175 


ASC ^ APPLE -CAT: AWAIT CARRIER' 




0890 4C 45 


2D 








0893 43 41 


54 








0896 3A 41 


57 








0899 41 49 


54 








0B9C 20 43 


41 








039F 52 52 


49 








03A2 45 52 










03A4 00 




176 


HEX 00 




00A5 A2 28 




177 


LDX #!40 




03A7 AC FJ 


02 


3 73 


ANSLP3 LDY SLOT 




oaAA B9 SO 


CO 


179 


LDA SWBVT,Y ; GET CARRIER BYTE. 




OBAD 29 20 




ISO 


AND #7.00100000 ; MASK CARRIER BIT. 




OSAF DO 2C 




181 


BNE PRTCAR ; WE HAVE A CARRIER! 




08B1 A9 05 




182 


LDA #!5 : . 5 SEC 




08B3 20 19 


09 


183 


JSR WAITl ;WAI1 ROUTINE 




08B6 CA 




184 


DEX 




03B7 DO EE 




185 


BNE ANSLP3 ; ST ILL HAVE TIME LEFT 




08B9 




186 


;N0 CARRFER WAS DETECTED... 




0BB9 20 2B 


09 


137 


JSR PRINTIT 




OSBC 8D 8D 




IBS 


FlEX 8D8D 




OSBE 41 50 


50 


189 


ASC 'APPLE- CAT;NG CAfvRIER^ 




08C1 4C 45 


2D 








08C4 43 41 


54 








03C7 3A 4E 


4F 








OSCA 20 43 


41 








08CD 52 52 


49 








OBDO 45 52 










08D2 SD 00 




190 


HEX 8D00 




0SD4 20 33 


OS 


193 


JSR HANGUP ;HANG UP FONE. 




08D7 A9 00 




192 


NOCAR LDA #00 ; NO CARRIER 




08D9 85 IF 




193 


STA CARSTS 




08DB IB 




1 94 


CLC rCLEAR CARRY TO INDICATE NO 


CA 


RRIE 










OBDC 60 




195 


RTS ; RETURN TO CALLING ROUTINE 




08DD 20 2Ei 


09 


1^6 


PRTCAR JSR PRINT IT 




03E0 SD SD 




3 97 


HEX 3DBD 




08E2 41 50 


Sfj 


198 


ASC ' APPLE-CAT: CONNECTED' 




03E5 4C 45 


2D 








OSES 43 41 


54 








08EB 3A 43 


4F 








OSEE 4E 4E 


45 








OBFl 43 54 


-15 








08F4 44 










03F5 SD 00 




199 


HEX SDOO 







22 



23 




OHF^ 


35 


IF 


riBFB 


4C 


50 ri8 


RRIE 






OSF-E 


AC 


F 1 '..12 


0901 


73 




0902 


A 9 


00 


0904 


99 


32 CO 


09u7 


A 9 


0] 


0909 


99 


B 1 CO 


09uC 


A9 


OF 


09CIE 


99 


33 CO 


091 1 


A9 


IF 


09 1 3 


99 


GD CO 


0916 


G5 


ID 


09 I 8 


ftO 




09 3 9 






09 1 9 






0919 






09 1 9 


36 


IC 


09 ID 


S4 


ID 


09 1 T) 


A3 




09 1 £ 


A 9 


c: 


0920 


20 


A8 FC 


0923 


BS 




0924 


DO 


F3 


0926 


A6 


3C 


092S 


A4 


] D 


092 A 


6':i 




092& 






09 2 B 






092 B 






092B 


84 


ID 


092D 


Bt. 


IC 


0921- 


63 




0930 


BV: 


04 


0932 


63 




0933 


as 


05 



093D 


09 


093F 


20 


0942 


20 


0945 


4G 


094B 


20 


094B 


A 5 


094D 


43 


094 E 


A5 


0950 


43 


095 1 


A6 


0953 


A 4 


0955 


A9 



I. DA #7.00100000 

S7A CARSliS 

JMP CARFND 

ANGl LDV BLOT 
SEI 

IDA #00 

BVA BHBYT, Y 

LDA #7.00000001 

STA SDLIBYT, V 

LDA #tOF 

BTA BBHBV I , V 

LDA #*1F 

3IA XMTBVr.Y 

3TA XM1RAM 

ENTER THIS ROUTINE WITH # 
TIHE PERIODS IN THE ACCOM. 



WAITl 


STX 


TEMPX 




BIV 


VEIIPY 




TAY 




WA I T 1 f^i 


L.DA 


#'195 




J BR 


WA 1 T 




DEY 






BNE 


WAI 1 lA 




LDX 


1LMPX 




LDY 


TEMPY 




RTS 




:RDU1 INE 


10 1 


■RINl OUT A 


;0F CHARS ENDINC WITH A 


PR INI X r 


SI Y 


TEMFY 




STX 


lEMFX 




HI. A 






3TA 


C3 




STA 


C3*-$l 




l_ DY 


#1 


F^RINT2 


LDA 


(C3) . Y 




Clip 


#00 




BED 


QUIT 




OR A 


#*80 




J BR 


COOT 1 




JSR 


UPDATE 




.IMP 


PRINT2 


UU I 1 


,} BR 


UPDAIE 




LDA 


C3-'-tl 




PHA 






LDA 


C3 




PHA 






LDX 


TEMPX 




l_.DY 


1 EMPy 




LDA 


#1 




RTS 




UPDA FE 


INC 


C3 




BNE 


DUIIR 



:SE1 CAF^RJER S l"A lOS 10 ON 
;ACKNOWL.EDB[; THAT Wt HAVE A CA 



iTORN OFF INTEF^UI-TB 

;PUr THE PHITNE ON ThlE HOOh; 

:M1C S.: SPF^. 

; OFF . 

:MAK£ SURE HHAT WE DON'T 

;C:tET ANV INTERUPrS FROM 

:BSR S.: TURN OFF XMITTER 



- J 00I-1S 

; SAVE X 
:SAVE Y 

; MOVE COUNT Ti:^ 
;DD 100MB WAI T 
; DELAY 

;Y=0? NO-BO BAC 
r, REST ORE X 
; RESTORE Y 
; RE I URN 



: SAVE 
: SAVE 



;S£I HI OH to I 



SREBTORED THE STACK 

! RESTORE X 

;r^'ESTORE Y 

; LEAVE WII'H ACCUM==1 ALWAY 




095F 
095F 
095F 



INC C3H-*] 
QOITR RTS 

SFOLLOWING IB A TYPICAL ROUTINE THAT 
;Y00 WOULD JUMP TO WHEN YOU WANTED 10 
;INiriALIZE IHE MODEM FUR DATA MODE. 



0960 AC Fl 



0965 


99 


31 


c: 


0968 


A 9 


02 




096A 


99 


32 


C(. 


096D 


A 9 


Ofri 




096 F 


99 


83 


cc 


0972 


(:>•? 


64 




0974 


99 


89 


C(_ 


0977 


A9 


o;' 




09 7? 


99 


8A 


Cr 


09 /C 


A9 


22 




097E 


7<? 


8B 


cc 


0981 


A 9 


05 




0983 


99 


8C 


cc 


09B6 


A 9 


10 




09SB 


99 


GD 


cc 


09BB 


85 


3D 




0980 


A9 


(JO 




098F 


99 


ap 


cc 


0992 


60 







0993 AC F] 



0998 


99 


32 


099B 


A9 


02 


099D 


99 


81 


09 AO 


A 9 


IF 


09A2 


99 


SD 


09A5 


35 


IB 


09A7 


,^0 




09 A8 






09AO 






C>9A8 






09 AS 






09 A3 






09 A8 






09 Aa 






09AB 






09 A3 






09 AG 


B9 


SO 


09 AB 


29 


30 


09 AD 


FO 


F9 


O-^JAP 


B9 


81 


09112 


29 


OF 


09B'f 


A A 







LDY 


SLOT 




LDA 


#-.'.0000000 ] 




STA 


SQUBYT,Y 




LDA 


#"/.O000o0J '■ 




BTA 


SHBYT. V 




LDA 


#y.oooooi lo 




SIA 


BBRUVT, V 




LDA 


#*64 




STA 


RECBYf . V 




LDA 


tt-'.0C:Cii:i01 1 1 




STA 


CON . y 




LDA 


tt*22 




STA 


SPDBYT . :' 




LDA 


#;'.oooooioi 




STA 


COM , Y 




LDA 


#* 3 




STA 


XMTBY T, Y 




SfA 


XMH-IAM 




LDA 


#too 




BIA 


DEVBYT, Y 




RTS 




; ROUT INE TO 


NITIALI,!£ 


;MaDE. 






INITV 


LDY 


SLOT 




LDA 


#7.0000001 1 




STA 


SHDYl". Y 




LDA 


#7.000oOi:Hi'i 




ST' A 


SDUBYT. Y 




LDA 


#7.0001111 1 




BIA 


XMTBVT .Y 




STA 


XM FRAN 




RTB 





:MAF\E SURF NO INTERUPrS OCCUR, 

;GET SLOT NUMBER 

; HJRN OFF MIC S-: SPEAKER. 

: TELL MODEM TO 

;PFCK UP THE PHONE 

; DISABLE BSR ?.< 30HZ I NTERl.lF'T S . 

; ANS 1("'3 

:I-10DE FOR THE RECEIVER. 

T,B DATA + 1 .5 STOP 

;BI IS, NO PARITY. 

;SET- SPEED TO 30u BAUD 

; XMIT 8.; RECV 

;XMIT S. RECV WITH NU 

; INF ERUPTS 

uANS 103 

:MODE FDR THE TRANBM.l T 1 ER. 

;RAM VERSION OF SAME. 

i;DIRECr DATA TO AND 

:FROM MAIN MODEM. 



MODEM FOR VOICE 



;GET MODEMS SLOT 
;TURN ON BWFTCH HOOK 
:AND ENABLE DV. 
;TURN ON SFT S.. MIC, 

;TURN OFF XMI ITER. 



24 



RGUriNE TO READ A T DUCHTONE FROM 1 HL 
MODEM. YOU MUST HAVE TOUCH TONE OPTION 
TO USE THIS RDUilNE. ALSO MAKE SURE 
THE SWI FCH HODH; IB ENABLED TO RECIEVE 
TOUCH TONE. EG. SEND A #7.00000'..) 1 ] TO 

SHBVT, Y, 
IHE CHAR WILL BE lU.-T 
THE ACCUMULATOR. 
RECTI ONE LDA SWBYl.Y 

AND #$80 

BEG RECT TONE 

LOA TONBYT, / 

AND tt'/.OOOOll 

TAX 



;T1ED 1 HROLIGI I 



IS THERE A TONE 

TONE PRESENT"^ 

LOOP TILL lAJE GET ONE 

GET TONE DATA 

LOOK AT LO-NIBBLE ONL 

TRANSFER TO THE X REG 



25 




0'?B5 


DD C5 09 


:i^?BS 


40 


:i9B9 


^9 02 


09BD 


?9 82 CO 


:i9DE 


A 9 U3 


09CU 


99 82 CO 


09 C 3 


■i.8 


09C4 


60 


09C5 


BO HI B2 


0908 


B3 B4 B5 


09CB 


B6 B7 B8 


09CE 


B9 BO AA 


09D1 


A3 Cd C2 


09 D 4 


C3 C4 


09D6 




09D6 




09D6 




0906 




09 D6 




09 D 6 




0906 




091)6 




09D6 


HG F 1 02 


09D9 


B9 SD c<: 


09DC 


29 08 


09DE 


FO F6 


09f;o 


20 10 'I'S 


TINE 




09E3 


60 


09E4 




09E4 




09E4 




09E4 




09E4 




09E4 




09E4 




09E4 




09E4 




09E:4 




09E4 




09E4 




09E4 




09 E 4 




09E4 




09 E 4 




09E4 




09E4 




09E4 




09E4 


SA 


09E5 


48 


09 E6 


98 


09E7 


48 


09 E a 


AC Fl 


09EB 


B9 31 C 


09EE 


29 10 


09F(: 


DO ] 7 


09F2 


A9 04 



LDA n TABLE, X 

F'HA 

LDA »i 

S! A BHBV I" , r 

LDA #3 

STA SHBVl , V 

PL A 



;Gtr rHE CHAR FROM THE TABLE 

;SAVE THE CHAR FOR fl MOMENT 

: CLEAR DV BY 

IGTRDBING CLRDV 

;0N AND THEN 

:OFF AGAIN 

: RECOVER CHAR . 



RT'S 
ITftDLE ASC ■'012:S1Si/B90«#ABCD" 



■PRINTER OUTPUT ROUTINE: THIS ROUTINE 

i ASSUMES THAT VOU HAVE ALREADY CORRECTLY 

iSET UP THE F'RINTER INTERFACE (SPEED, 

;PARnY,i:aTS, ETC) BEFORE CALLINI3 THIS 

; ROUTINE. 

;SEND THE CHAR ID tiE XMITTI 

; THE ACCUMULATOR. 

PRNTOUT LDY SLOT 

LDA ACBY 1 , Y 

AND tty.ooooiuoo 

BEE PRNTOUl 
JSR TTOUT 



THROUGH 



: GE r 
; MASh 



BIT. 



lYTE WITH HANDSHAKE 

OUT BIl 
LOOP TILL READ','. 
BRANCH TO THE CHAR OUT BUBROU 



RTS 



; RETURN 



;F0LL0W1N6 IS A COMPLETE DIALING 
■PACKAGE. IT WILL HANDLE BOTH TOUCH 
jTONE AS WELL AS PULSE DIALING, 
sIHIS ROUTINE IS FREE aTANDING, SO 
: THERE IS NO WEED TO SEND ANY CHARS 
;T0 IT, HOWEVER YOU MAY WANE TO 
: BY- PASS THE MENU ROUTINES AND JUMP 
; DIRECTLY INTO THE DIALING PORTION. 

JtHE DIALING ROUTINE WILL RETURN 
iA »01 IN THE ACCUMULATOR IF THE 
; DIALING WAS ABORTED, IF If WAS 
sCOMPLEIED IT WILL RETURN A ttOO 
iNOTE: THIS ROUTINE WILL RETURN WITH 
jINTERUPTS OFF, SD YOU MAY NEED TO 
; TURN THEM BACK ON AFTER CALLING THIS 
ilF YOU ARE USING INIERRUPTS 



354 IRQROUr IXA 



PHA 

TYA 

PHA 

LDr SLOT 

LDA TONBYT.Y 

AND #V,0001' 

BNE RESTDR 

LDA «V,000O 



'00' 



; SAVE X 

:SAVE Y 

jGET SLOT 

;GET TONEBYTE 

! MASK OUT 30 H 

; RET URN 

; RESET AND RE- 




09F9 99 S3 
09FC A5 3 1 
09FE FO 04 



0A06 99 S3 



OAOA AS 






OAOB 68 






OAOC AA 






OAOD A5 


45 




OAOF 40 






OAIO A 9 


E4 




0A12 8D 


FE 


03 


0A15 A9 


09 




0A17 8D 


FF 


03 


OAIA 60 






OA 1 B 






OAIB 






OAIB 






OA 1 B 






OAIB 






OAIB 20 


10 


OA 


OAIE 20 


00 


08 


0A21 20 


58 


FC 


0A24 20 


2B 


09 


0A27 OD 


OD 




0A29 BC 


C4 


BE 


0A2C AO 


AO 


C4 


0A2F C9 


CI 


CC 


0A32 AO 


C] 


AO 


0A35 CE 


DS 


CD 


0A38 C2 


CS 


D2 


0A3B OD 






0A3C DC 


D2 


BE 


0A3F AO 


AO 


D2 


0A42 C5 


AD 


C4 


0A45 C9 


Ci 


CC 


0A4S AO 


cc 


CI 


0A4B D3 


D4 


AO 


0A4E CE 


D5 


CD 



0A51 C2 Ce;: D2 



0A58 C3 BE AO 
0AI5B CI C2 CF 
0A5E 02 04 AO 
0A61 C4 C9 CI 
0A64 CC C9 CE 
0A67 C7 OD OD 
0A6A C3 CS Zr 
0A6D C9 C3 C5 
0A7O BF 00 





ST A 


DSRDVT, V 


; ENABLE BSR 




LDA 


#7.00000000 


; IRCr S 




3TA 


BSRBVl . Y 






LDA 


COLIN T 


;; iSL r COUNT 




BED 


OFF 


;■ DONE 




DEC 


CDUN T 


; DECREMENT i IliER 




DNE 


RESTGR 


: RETURN 


OFF 


LDA 


#-/.oo(:.ioi:i] ou 


:TURN OFF 30HZ 




SI A 


BSRBVr, Y 


: IRQ'S 


RE:"-1DR 


!-LA 




;PULL V 




TAV 




; RESTORE Y 




PI A 




; FULL X 




1 AX 




; RESTORE X 




1 DA 


*4t5 


: RECOVER ACCUMULATOR 




F-:ri 




: RETURN FROM INTERRUPT 


'ii&TlRU 


1 DA 


♦tTRGRGUT 


:GET LG BYTE LOCATION 




8TA 


I RQ 


:SAVE LOW IRQ BYTE 




LDA 


/IRQROUT 


:BET HI BYTE 




3TA 


IRO+1 


;BAVE HI BYTE 




RTS 




;G0 BACK 



: HERE IB VHE ACTUAL DIALING ROUTINE 
; SO YOU WOULD BRANCH HERE TO DIAL A 
; NUMBER, 



388 DIALER 



JSR GET IRQ 

JSR BLOTINir 

J8R HOME 

JSR PRINTIT 

DYl *D,«D 

BYl "^D> D]:, 



:S£T UP THE INI ERUPT ROUIINE 
: ro MAKE n FREE SI AND I NO 
: CLEAR SCREEN 
; PRINT WHAT FGLLLOWS 



tL A NUMBER" , *D 



26 



RE-DIAL LAST NUMBER", *D 



^:,ESC> ABORT D I AL ING" , tD , SD 









^^ 




^^" 


■ 






















LISA 


-.■ 5 






C 


AT PACK 




0A72 


20 C9 


oe: 


397 




JSR 


CGMNDl ; COMMAND PROCESSOR 


0A75 


44 




393 




BYT 


-'D' 


0A7A 


36 OA 




39"? 




ADR 


DIAL 


0A78 


52 




400 




BYT 


'R' 


0A79 


BC OA 




401 




ADR 


REDIAL 


oa;'B 


IB 




402 




DVT 


*1B 


0A7C 


32 UA 




403 




ADR 


ABORT 


0A7E 


BB 




404 




BYT 


'■: " ;END OF DATA 


0A7F 


4C IB 


OA 


405 




J MP 


DIALER jLOOP BACK. 


0Aa2 


20 AC 


OD 


406 


ABOFCT 


JSR 


RESIRQ ;TURN OFF INFERRUPIS 


OAas 


i>0 




407 




RTS 


; RETURN TO CALLER 


0AB6 


20 CO 


OA 


103 


DIAL 


JSR 


DIALSB :D1AL SUBROUTINE 


0A89 


4C 8F 


OA 


109 




J MP 


DIALOT ;JUMP OVER NEXT CLIMMAND 


OABC 


20 CA 


OB 


410 


REDIAL 


JSR 


REDLSB : RE- DIAL SUBROUTINE 


CiASF 


AC n 


02 


411 


DIALCT 


LDY 


SLOT ;GET SLOT 


OA*?!' 


A? 21 




412 




LDA 


#421 sPUl RECEIVER IN 103 ORIG 


0A94 


99 39 


CO 


413 




ST A 


RECBvr, V 


0A97 
OAS-A 
0A9A 


4C 32 


OA 


414 
415 
4],S 




J MP 


ABOR 1 






; ROUTINE TO GET TELEPHONE # IN | 


0A9A 






41 7 


: D 1 G 11" 


BUFFER <«350-$389) | 


0A9A 


A9 BA 




13 3 


GE rwo 


LDA 


ttiBA ; : PROMPT 


0A9C 


8S 33 




419 




STA 


PROMF'T ;PUT IN MONI TR LGCAnON 


0A9E 


20 6 A 


FD 


420 




JSR 


GETLN ;GET A LINE OF lEXT 


OAA 1 


A9 00 




421 




LDA 


#0 ; ZERO THE 


0AA3 


B5 10 




422 




SI A 


C7 ; INDEX COUNTER 


OAAS 


AA 10 




423 


GtifNUl 


LDX 


C7 ;DET THE VALUE OF THE INDEX CO 


UNI 














0AA7 


EC 33 




'■124 




C1-' X 


#*3S ;IF TOO LONG THEN 1 RUNCA I E 


0AA9 


Fij OF 




425 




BEG 


QU I T3 


OAAB 


BD 00 


02 


426 




LDA 


KEYBUF,X ;GET ) HE CHAR JN THE BUFFER 


OAAE 


C9 3D 




427 




CMP 


#18D ; IS IT C/R 


OABO 


FO OS 




128 




BEQ 


QUI r3 sYES RETURN TO CALLER 


0AB2 


9D 50 


i-.3 


429 




STA 


DIBBUF,X ; STORE IN DIGIT BUFFER 


0AB5 


Efe lU 




43u 




INC 


C7 ; INC COUNTER 


UAB7 


4C AS 


OA 


431 




J MP 


GETNOI ;LOOP FOR MORE 


OABA 


A9 SD 




432 


Qll 1 i" 3 


LDA 


*t*3D 


OABC 


9D SO 


03 


433 




STA 


DIGBUF.X ;PUT RETUF<N IN LAST LOC 


OABF 


60 




4 34 




RTS 


; RETURN 


OACO 






435 








OACO 


2i:) 53 


FL 


436 


DIAL SB 


JSR 


HOME ; CLEAR SCREEN 


0AC3 


20 2B 


09 


437 




JSR 


PR I NT IT 


0AC6 


BC BO 


AD 


4 38 




BY! 


"^::0-9.#.#: DIGITS TO DIAL".*D 


0AC9 


B9 AC 


AA 










OACC 


AC A3 


i:(E 










OACF 


AO C4 


C9 










0AD2 


C7 C9 


D4 










GAD 5 


D3 AO 


D4 










OAOe 


CF AO 


C4 










CADE 


C9 CI 


CC 










OADE 


OD 












OADF 


BC D4 


BE 


439 




BYT 


"<T>- TOUCH FONE SELLCr",*D 


0AE2 


AO AO 


AO 










0AE5 


AO AO 


AO 










0AE3 


AO D4 


CF 










OAEE 


D5 C3 


CB 










OAEE 


AO D4 


CF 










OAF 1 


CE C5 


AO 












D3 C5-CC 



BC DO DE 



OAF 4 

0AF7 

OAF A 

OAFB 

OAFE AO AO AO 

OBOl AO AO AO 

0B04 AO DO 05 

0B07 CC D3 C5 

OBOA AO C4 C9 



OBOD 


C3 


CC 


OB 1 


D3 


C5 


OBI 3 


C5 


C3 


OB 1 A 


OD 




OB 17 


BC 


AB 


OBI A 


AO 


AO 


OB ID 


AO 


AO 


0B20 


Ai:i 


DO 


OB 2 3 


D5 


D3 


OB 26 


AO 


C6 


0B29 


D2 


Au 


0B2C 


C9 


CI 


0B2F 


D4 


CF 


OB 3 2 


C5 


OD 


0B.::.4 


BC 


CO 


OB 3 7 


AO 


AO 


0B3A 


AO 


AO 


0B3D 


AO 


DO 


0B40 


D5 


D.3 


0B43 


AO 


C6 


0B46 


D2 


AO 


0B49 


AO 


D3 


0B4C 


C3 


CF 


0B4F 


C4 


D3 


0B52 


00 




0B53 


CE 


CF 


0B56 


C5 


BA 


0B59 


BC 


DO 


0B5C 


AO 


A6 



0B5F BC D4 BE 
0B62 AO C9 C6 



PULSE DIAL 



3ELECr", *D 



PAUSE FOR DIAL FONE". *D 



hiECGNDS", *D, tD 



28 



IF USED MUST BE THE".iD 



0B6a 


C5 


C4 


0B6B 


CD 


D5 


0B6E 


D4 


AO 


OB 71 


C5 


AO 


0B74 


C8 


C5 


OB 7 7 


C6 


C9 


0B7A 


D3 


D4 


0B7D 


CC 


C5 


OBSO 


D4 


C5 


0BB3 


D3 


AO 


OB 8 6 


CE 


AC) 


0Brj9 


C8 


C5 


OBSC 


CE 


D5 


OBSF 


C2 


C5 


0B92 


OD 





BYT "FIRST LE ITERS IN THE NUMBER". *D 











LISA 2.5 




CATPACK 






0B93 CE D5 CD 


445 


DVr "NUMBER TO DIAL",0 






0B96 C2 135 D2 










0B97 AO D4 CF 










0B9C AO C4 C9 










0B9F CI CC 00 










0EA2 20 "^A OA 


44i 


JSR GETNO ;GET # 






0BA5 A2 OO 


447 


L.DX #0 ; INIT INDEX 






0BA7 B0 50 03 


448 


LDA DIGBUF.X ; GE T CHAR 






OBAA C9 3D 


449 


CMP tttBD ; IS IT <C/R> 






OBAC DO 03 


450 


BNE REDLBBl ;NG-BKIP NEXT LINE. 






OBAE 4C D] OC 


451 


JMP DLAB ;YEEi-JUMP TO ABORT 






OBBl C9 D4 


452 


F^EDLBBl CMP **"T" 






0BB3 DO OA 


453 


BNE REDLSB2 






0BE5 4G 


454 


l-'Hft 






0BB6 A9 00 


455 


LDA #00 






0BB8 3D OC 0? 


456 


ST A DIAL3W 






OBBB 68 


457 


FLA 






OBBC 4C CA OB 


458 


JMP REDLSB 






OBBF C9 DO 


459 


REDLSB2 CMP #"P" 






OBCl DO 07 


460 


BhIE REDLSB 






0BC3 43 


461 


PMA 






0BC4 A9 01 


462 


LDA #0] 






0BC6 GD OC 03 


463 


KTA DIALSW 






0BC9 68 


464 


PL A 






OBCA 20 4C OD 


465 


RED[_SB J5R RESIRO ; [URN OFF ACTA 






OECD 20 53 FL". 


4 66 


vJGR HOME ; CLEAR SCREEN 






OBDO 20 2B 09 


467 


JSR PR I NT n 






0BD3 20 20 20 


468 


BVT ' <£SC> TO ABORT', $D.*D 






0BD6 3C 45 53 










0BD9 43 3E 20 










OBDE: 54 4F 20 










OBDF 41. 42 4F 










0BE2 52 54 OD 










0BE5 OD 










0BE6 OD OD OD 


469 


BYT *D,*D,*D, *D, 'DIALING: ' ,0 






0BE9 OD 44 49 










OEEC 41 4C 49 










OBEF 4E 47 3A 










0BF2 00 










OBr'3 AC Fl 02 


470 


LDY SLOT 5 GET CARD INDEX 






0BF6 A9 03 


471 


LDA #7.00000011 ; TURN OFF 






OBF8 99 31 CO 


472 


STA SDUBYl , y ; MICROPHONE 






OBFB A9 7E 


473 


LDA #*7E -SET RECEIVER 






OBFD 99 89 CO 


474 


STA RECBVf,Y ; TO DIAL-TONE DETECT MODE 






OCOO A9 IF 


475 


LDA #*1F ;SET XMITTER 






0C02 99 BD CO 


4 76 


STA XMTBYT.V ; TO OFF 






0C05 85 IB 
0C07 


477 
478 
479 


STA XM7RAM ; STORE IN RAM VERS. OF XMTB^ 


T. 




0C07 A9 00 


LDA #0 ;TURN 






0C09 99 82 CO 


480 


STA SHBYT^y ; OFF SH 






OCOC 


481 








OCOC A9 IE 


482 


LDA »30 ;TURN OFF SH FOR 






OCOE 20 19 09 
OCl 1 A9 03 


483 
434 


JSR WAITl 


; 3 SEC. 
; TURN ON 




LDA #3 




0C13 99 82 CO 


435 


STA SHBYT,r ; SH AGAIN 












^^^^ 


















OC 1 6 
OC J 6 




OCl 6 


20 


OCl 9 


90 


OC 1 B 


C9 


OC 1 D 


DO 


OCIF 


4C 


0C22 


D9 


0C25 


29 


0C27 


DO 


0C29 




0C29 




0C29 


A9 


0C2E 


2Ci 


NGS. 




0C2E 


C9 


0C30 


DO 


0C32 




0C32 


A2 



0C34 DD 50 
0C37 C9 8D 



0C54 A9 14 

0C56 20 19 ' 

0C59 6B 

0C5A C9 AD 

0C5C DO IB 

0C5E 

0C5E 

0C5E 48 

0C5F 20 BA I 

0C62 90 04 

0C64 C9 IE 

0C66 FO 68 

0C6B B9 80 

0C6B 29 10 

0C6D DO FO 

0C6F 

0C6F 

0C6F A9 ID 

0C71 20 21 

NBB. 

0C74 C9 01 

0C76 DO E7 



488 
4B9 
490 
491 
492 
493 
494 
495 
496 
49.' 
498 
499 



;DTAL TONE DETHClIiDN ROUTINE 
DIALIA JSR RDKEV 

BCC DIALIB 

CMP #*1B 

BNE DIALIB 

JMP DLAB 
DIALIB l-DA SWBVr, V 

AND #7.000 IOO'JO 

BNE DIALIA 
; OTHERWISE MAKE SURE DIAL 
; AROUND FOR ] SEC. 

LDA #29 

JSR COUNTM 

CMP #1 

BNE DIALIA 



0C3C 


20 


ED FD 


508 


0C3F 


68 




509 


0C40 


E8 




510 


0C4 1 


48 




5 1 1 


0C42 


20 


BA OE 


512 


OC45 


90 


7 


513 


0C47 


C9 


IB 


514 


0C49 


DO 


03 


515 


0C4B 


4C 


Dr> OC 


516 


0C4E 


68 




517 


0C4F 


C9 


CO 


518 


0C5 1 


DO 


0/ 


519 



D I AL 1 A 



LDX #0 

LDA DIGDLIF . ) 

CMP tttBD 

HEU DTALOV 

PHA 

JSR COUl 

PL A 

.1 NX 

PHA 

JSR I'JIKEV 

BCC DIAL3 

CMI"' #tlB 

BNE DIAL 3 

JMP DIALAB 

f-'LA 

CMP #?.C0 

BNE PLUS 

PHA 

LDA #20 

JSR WAITl 

PL A 

CMP tt*AB 

BNE DIAL3A 



;LDDK A!" KEYBOARD 
:ND CHAR SO SKIP T 
; IS CHAR <.ESC> 
;NO-JUMP NEXT LINE. 
; YES ABORT 

:GET BYTE WITH CARRIER 
SMASK ZERO CROSSING BIT 
;IF NOT DIAL TONE THEN LDDL' 
TONE IS 

:SET UP 

: 1 SEC. WAIT f COUNT O CROSS 

:1 CROSSING hEANS DIAL TONL-:. 
; START OVER AGAIN 

; INIT INDEX COUNTER. 
;GET I'BT CHAR. 



; IS 



IT ^.;cR> 



; YES-GO TO END ROUTINE. 

;SAVE CHAR 

;PRIN1" CHAR 

i RECOVER CHAR 

: INCREMENI CHAR. COUNTER 

;SAVE A IN STACK 

;LOOK AT KEYBOARD 

;N0 CHAR SO SKIP TO DIAL3 

; IS CHAR <ESC::^ 

; NO-SKIP NEXT CODE. 

; YES TO ABORT MESSAGE. 

; RES TORE A 

i; I S IT A ' a ' 

;N0-30 SKIP TO PLUS 

:SAVE CHAR IN STACK 

;WArr FOR 

; 2 SEC. 

: RECOVER CHAR 

; IS IT ■■ t--^ (PAUSE) 

;NG-GOTO DIAL3A 



30 



;DIAL TOME DETECTION ROUTINE FOR 



529 DTDl 



DTD2 



PHA 

JSR RDKEV 
BCC DTD2 
CMP #tlB 
BEQ DIALAB 
LDA SWEYT,Y 
AND #7.000100 
BNE DTDl 
: OTHERWISE MAKE SURE 
; AROUND FOR 1 SEC 
LDA #29 
JSR COLINTM 

CMP #1 
BNE DTDl 



;SAVE CHAR IN STACK 
;LOOK AT KEVBOARD 
;NG CHAR SO SKIP TO DIALIA 
; IS CHAR <ESC:v 
: YES-ABORT 

:GET BYTE WITH CARRIER 
^ MASK ZERO L:RGSSiNB BIT 
;IF NOr DIAL TONE THEN LOiJP 
I GNb. 1 S 

; SE 1 UP 



;1 CROSSING MEANS DIAL TONE. 
; START OVER AGAIN 



LISA 2. 


■5 




0C7e 6B 






ocy? 






0C79 C9 


AA 




0C7B DO 


04 




0C7D A9 


OA 




0C7F DO 


la 




OCai C9 


A3 




oca3 DO 


04 




0CB5 A9 


OB 




0C87 DO 


10 




OCS9 






0CB9 38 






CARR 






OCQA E9 


DO 




0C8C 30 


lA 




OCaE D9 


(J A 




0C90 10 


16 




0C92 4a 






0C93 AD 


OC 


03 


0C96 DO 


07 




0C93 68 






0C99 20 


40 


OE 


0C9C 4C 


34 


<:>c 


0C9F A9 


08 




OCAI 20 


19 


09 


0CA4 SB 






OCA 5 20 


F4 


OC 


OCAa 4C 


34 


OC 


OGAB 






OCAB 20 


2B 


09 


OCAE OD 


OD 


44 


OCBl 49 


41 


4C 


0CB4 49 


4E 


47 


0CB7 20 


43 


4F 


OCBA 4D 


50 


4C 


OCBD 45 


54 


45 


OCCO 44 


00 




0CC2 AC 


Fl 


02 


0CC5 A9 


02 




0CC7 99 


ai 


CO 


OCCft 20 


4C 


OD 


OCCD A9 


00 




OCCF 60 






OCDO 63 






OCDl AC 


Fl 


02 


0CD4 A9 


f:'(:i 




0CD6 99 


82 


CO 


0CD9 A9 


01 




OCDB 99 


31 


CO 


OCDE 20 


2B 


'.>9 


OCE 1 OD 


'JD 


44 


0CE4 49 


41 


4C 


OCE 7 49 


4E 


47 


OCEA 20 


41 


42 


OCED 4f- 


52 


54 


OCrO 415 


44 


Ot) 


0CF3 60 







544 DIAL3A 



54S D3A1 



568 DIALS 



CMP #*AA 

DNE D3A1 

LDA tttA 

DIME DTAL3B 

CMP #tA3 

DNE D3A2 

LDA #*B 

BHE DIAL3B 

SEC 

SBC #*B0 

BMI DIALS 

ChP #*A 

BPL DIAL5 

PHA 

LDA DIALSW 

BNE DIAL4 

PLA 

JSR TONE 

J MP DIALl 

LDA #8 

JSR WAITl 

PLA 

JSR PULSIT 

.IMP DIALl 



; RECOVER CHAR 

; IS IT ' *' 7 

; NO-SKIP AHEAD 

;VES-PUT $A IN ACCUM 

; AND SEND 11 

; IS IT '#■■ ? 

; NO -SKIP AHEAD 

; YES-PUT *B IN ACCUM 

; AND SEND 17 

; PREPARE FDR SUBTRACT WITHOUT 



;G0 GET NEXT # (TOO LARGE) 

5 SAVE # ON STACK 

;IS TOUCH- TONE ENABLED(=0) 

;NO-GU TO DIAL4 

; YES-BET A 

;SEND THE TOUCH-TDNE 

;G0 GET NEKT CHAR 

;B£1WEEN"D1GIT 

;WAIT OF BOO MS 

; RECOVER A REG 

;G0 DIAL tt 

;G0 GET NEXT # 



JSR PR I NT IT ; DIALING- OVER ENDING 

BYT tD,*D, 'DIALING COMPLETED', O 



;GET CARD INDEX 

;TURN DN MIC 

; AND SPKR 

; ASSURE INTERRUPTS OFF 

;SIGNAL DIALING COMPLETED 

; RETURN FROM DIALING ROUriNE. 

; RECOVER CHAI^ 

:GET CARD INDEX 

; TURN OFF 

; SWITCH HOOK 
LDA tty.OOOOOOOl : TURN OFF MIC 
SrA SQUBYT,V ; AND SPKR. 

J BR PR I NT IT 
BYT *D, $D, 'DIALING ABORTED ',0 





LDY 


BLOT 




LDA 


#;'.ooooo(:i 




STA 


SQUBVT.Y 




JSR 


RESIRO 




LDA 


#0 




RIS 




DIALAB 


PLA 




DLAB 


LDY 


SLOT 




LDA 


#0 




STA 


BHBYT, Y 



; RETURN FROM DIALING ROUTINE. 




0CF4 
0CF4 
0CF4 
0CF6 



587 ; ACCUM. HAS *0] TO INDICAIE ABORT. 



OCFA 
OCFC 
OCFE 
OCFF 



DO 



A9 OA 
AA 

AC Fl 02 
A 9 00 
99 82 CO 
0D07 A9 96 
0D09 20 AS FC 
ODOC A9 03 
99 



ODO 
0D04 



ODOE 
ODll 
0D12 
0D14 
0D16 
0D19 
ODIC 
ODIE 
0D20 
0D21 
0D21 
0D21 
0D21 
0D21 
0D23 



CA 

FO 08 
A9 7B 
20 AS FC 
4C FF OC 
A6 IC 
A4 ID 



0D2B 



AC Fl 

A 9 00 

0D2A 85 02 

0D2C 99 S3 

0D2F A9 10 

0D31 85 F6 
0D33 58 



0D3S B9 80 CO 



0D3B 29 IC 



0D3D 


C5 


F6 


0D3F 


FO 


F3 


0D41 


85 


F6 


0D43 


E6 


02 


0D45 


DO 


ED 


0D47 


68 




0D4S 


A8 




0D49 


A 5 


02 


INGS 






0D4B 


60 




OD4C 






0D4C 


78 




0D4D 


AC 


Fl 


0D50 


A9 


04 


0D52 


<?cp 


SC 



604 

605 



611 

6 1 .2 



PULSIT 


STX 


TEMPX 




STY 


TEMPY 




CMP 


#0 




BNE 


PULSE 1 




LDA 


ttlO 


PULSE 1 


TAX 




PULSE 2 


LDY 


SLOT 




LDA 


ttO 




STA 


SHBVT . 




LDA 


#150 




JSR 


WAIT 




LDA 


#3 




STA 


SHBYT. 




DEX 






BEQ 


PULSE3 




LDA 


#123 




JSR 


WAIT 




J MP 


PULSE 2 


PULSE 3 


LDX 


TEMPX 




LDY 


TEMPY 



CDUNTM: 

; IM THE ACCUMULATOR. 



613 


:THE # 


DF ZERO CROSSING 


614 




STA 


COUNT 


615 




TYA 




616 




PHA 




617 




LDY 


SLOT 


618 




LDA 


tti) 


619 




STA 


CROSS 


620 




STA 


BSRBYT.Y 


621 




LDA 


#7.00010000 


622 




STA 


ZCTMP 


623 




CLl 




624 


COUNT 1 


LDA 


COUNT 


625 




BEG 


COUNT 3 


626 


COUNT 2 


L.DA 


5WBYT, Y 


627 




AND 


#7.00010000 


628 




CMP 


ZCTMP 


629 




BEQ 


COUNT ] 


630 




STA 


ZCTMP 


631 




INC 


CROSS 


632 




BNE 


COUNT! 


633 


COUNT 3 


PLA 




634 




TAY 




635 




LDA 


CI";OSS 



638 


RES IRQ 


SEI 


639 




LDY SLOT 


640 




LDA tt*04 


641 




STA COM. 



;SAVE X AND 

';V REGS 

; IS tt O ? 

!NQ--SKIP NEXT STEP 

; YES-MAKE IT 10 

; TRANSFER A TO X 

:GET CARD INDEX 

;TURN 

;OFF SH 

UFOR 

;60 MS. 

;TURN DN 

:SH AGAIN 

; DECREMENT X 

; IF X=0 THEN WE ARE DONE 

;WAIT FOR 

;40 MB. 

;D0 IT AGAIN 

; RESTORE X AND 

;Y REGS. 

H RETURN 



RETURNED IN THE ACCUM. 
;PUT ACCUM IN COUNT REGISTER 
;SAVE Y-REG 
; IN STACK 
;GET CARD INDEX 
;TURN DN 

;ZERO TRANSITION COUNTER 
; 30 HZ IRD'B 
; INITIALIZE 

; ZERO TEMP LOCATION TO I. 
; ENABLE 1 RQS 

! IS IRQ DELAY ROUTINE DONE'" 
; YES-EX IT ROUTINE 
;GET SWITCH BYTE 
;MASK ZERO CROSSING BIT 
; IS POLARITY SAME AS BEFORE. 
;YES-SO LOOP 

; STORE NEW VALUE DF POLARITY 
; NO-ADD 1 TO CROSSINGS. 
;UNCONDIT. JMP TO COUNT 1 
: RECOVER Y-REG 
; FROM STACK 
;LOAD ACCUM. WITH # DF 0-CRUSS 



32 



; RETURN TO CALLER 
5 TURN OFF INTERUPTS 



; TURN OFF 
;UART IRQ'S 



OEOCi 






OEOO 






OEOO 


40 


53 


0E02 


6C 


7A 


0E04 


7F 


7 A 


0E06 


6C 


5S 


0E0E3 


40 


28 


OEOA 


13 


05 


OEOC: 


00 


05 


OEfl'E 


13 


28 


OEIO 






OEIO 






OEIO 







OE 1 






OEIO 


5E 


01 


0E12 


Fl 


01 


OE 1 4 


04 


01 


0E16 


C2 


01 


OE 1 B 


04 


01 


OEIA 


Fl 


01 


OEIC 


04 


01 


OEIE 


26 


02 


0E20 


IF 


01 


0E22 


C2 


01 


0E24 


IF 


01 


0E26 


Fl 


01 


0E2S 


IF 


01 


0E2A 


26 


02 


0E2C 


3D 


01 


0E2E 


C2 


01 


0E30 


3D 


01 


0E32 


Fl 


01 


0E34 


3D 


01 


0E36 


26 


02 


0E38 


5E 


01 


0E3A 


G2 


01 


0E3C 


5E 


01 


0E3E 


26 


02 


0E4O 






0E40 






0E40 






0E40 


B6 


IC 


0E42 


84 


ID 


nE44 


A2 


04 


0E46 


86 


EA 



646 
647 

648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 



; NOTE: II IS VERY IMPORTANT THAT THE 

; FOLLOWING ROUTINE BE LOCATED IN 

;A FULL PAGE ';*FF BY TEG ND BOUNDRY 

; CROSSING) BECAUSE OF TIMING REQUIREMENTB 

ORG $FF00S.:*100+* ;SK1P ID NEXT EVEN PAGE BOUNDR 



*** TOUCH TONE ROUTINE *** 
MUST ALL BE IN ONE PAGE OF MEMORY 



16-BVTE SINE 

BYT *40,*5B 

BYT «6C,*7A 

BYT t7F,t7A 

BYT *6C,*5B 

BYT *40,t2B 

BYT *13,*05 

BYT *00,t05 

BYT tl3,t2B 



_OOK-UP TABLE 



; TDUCH-TONE CONSTANTS. 

; (NEED TO BE ALTERED IF 

; CPU CLOCK ISN^T 1.023 MHZ) 

;; RE -CALCULATED FOR 93 MACHINE CYCLES 

; 11/11. .'GO 



677 




678 


D5 


679 




680 


D6 


681 




682 


D7 


683 




684 


DB 


685 




686 


D9 


687 




688 


DIO 


689 




690 


Dll 


691 




692 


. — 


693 


; 


694 


: 


695 


TON 


696 




697 




698 





BYT 


*5E 


*01 


DYT 


tFl 


*01 


BYT 


*04 


*01 


BYT 


tC2 


*01 


BYT 


*04 


*01 


BYT 


tFl 


*01 


BYT 


*04 


*01 


BYT 


*26 


*02 


BYT 


*1F 


*01 


BYT 


*C2 


*01 


BYT 


tlF 


toi 


BYT 


*F1 


*oi 


BYT 


*1F 


*01 


BYT 


$26 


t02 


BYT 


«3D 


*01 


BYT 


*C2 


*01 


BYT 


*3D 


*01 


BYT 


$F1 


*01 


BYT 


«3D 


SOl 


BYT 


*26 


*02 


BYT 


t5E 


*01 


BYT 


*C2 


toi 


BYT 


t5E 


toi 


BYT 


$26 


t02 



TOUCHTONE GEN. 

STX TEMPX 
BTY TEMPY 
LDX #4 
BTX DLYH 



jSAVE X REG 
; SAVE Y REG 



; SET-UP INTERDIGIG DELAY 



0E48 


OA 




699 


0E49 


OA 




7O0 


0E4A 


AS 




701 


0E4B 


B9 10 


OE 


702 


0E4E 


85 E5 




703 


0E50 


t;B 




704 


0E51 


B9 10 


OE 


705 



6'?'? HULTA 



UE5A 85 E7 



0E5C 


CB 


0E5D 


B9 


0E60 


85 


0E62 


EA 


0E63 


EA 


0E64 


EA 


0E65 


EA 


0E66 


A5 


0E6a 


IS 


0E69 


65 


0E6B 


85 


0E6D 


A5 


0E6F 


65 


0E71 


85 


0E73 


29 


0E75 


AA 


0E76 


BD 


0E79 


48 


0E7A 


A5 


0E7C 


IS 


0E7D 


65 


0E7F 


85 


OESl 


A5 


0Ea3 


65 


0EB5 


85 


0E87 


29 


0E89 


AA 


OESA 


68 


OEBB 


IB 


0E8C 


7D 


0E8F 


29 


0E9 1 


09 


0E93 


AC 


0E96 


99 


0E99 


C6 


0E9B 


DO 


0E9D 


C6 


0E9F 


DO 


OEAl 


A9 


0EA3 


AC 


0EA6 


99 


0EA9 


A9 


OEAB 


85 


OEAD 


C6 


OEAF 


DO 



71 1 
712 
7 13 
714 
715 
716 
717 
713 
719 
720 
721 
722 
723 
724 
725 
726 
727 
72B 
729 



734 
735 
736 
737 
738 
739 
740 
741 
742 



749 
750 
751 
752 
753 
734 



DELAY2 
DLYl 



ASL 

ASL 

TAY 

LDA TABL.Y 

STA FIF 

INY 

LDA TABL,V 

STA F3 I 

INY 

LDA TABL,Y 

STA F2r 

INY 

LDA TABL,Y 

STA F2I 

NOP 

NOP 

NOP 

hlOP 

LDA FIF 

CLC 

ADC FRACl 

SI A FRACl 

LDA FlI 

ADC liMTl 

STA INTl 

AND tt«F 

TAX 

LDA SIIME.X 

PHA 

LDA F2F 
CLC 

ADC FRAC2 
STA FRAC2 

LDA F21 
ADC INT2 
STA INT2 
AND #*F 
TAX 
PLA 
CLC 

fkDC GINE,X 
AND #*F0 
ORA #*04 
LDY SLOT 
STA DACBYT. 
DEC DLYL 
BNE NEXT 
DEC DLYH 
BNE NEXTl 
LDA #*74 
LDY SLOT 
STA DACBYT, 
LDA #tlO 
STA DLYH 
DEC DLYL 
BNE DLYl 



; MULTIPLY 

: DIGIT BY 4 

;PUT OFFSET IN V 

;GET ISr FRACriGN 



;GET 2ND INTEGER 



;GET 2ND FRACTION 



jGET 2ND INTEGER 



; PAD 

; BRANCH 

; ERROR 



34 



;GET SLOT INDEX 
; STORE TO DAC 



;GET SLOT INDEX 
; STORE TO DAC 

; INTERDI6IT 
; DELAY 
: ROUTINE 




OEBl C6 EA 

0EB3 DO Fa 

0EB5 A6 IC 

GEE? A4 ID 

0EB9 60 
OEBA 
OEBA 
OEBA 

OEBA AD 00 

OEBD 30 02 

OEBF IS 

OECO 60 
HARACTDR 



758 
760 



DEC DLYH 

BNE DLYl 

LDX TEMPX 

LDY TEMPy 
RTS 



; RESTORE X 
;AND Y REGS 



;THIS SECTION GETS A CHAR FROM THE KEYBD 

;AND PRINTS BOTTOM LINES IF NECESSARY. 

RDKEY LDA KEYDAT ; READ KEYBOARD 

BMI RDKEYl ;YES. THEN GO TO RDKEYl 

CLC ; NO -SEND ROUTINE BACK 

RTS ;WITH CARRY CLEAR TO MEAN NO C 

; CLEAR KEYBOARD STROBE AND STR 



;G£T CHARACTER FROM KEYBOARD 

;AND RETURN TO ROUTINE 

;WITH CARRY SET TO MEAN SOT CH 



OECl 


AD 


10 


CO 


767 


RDKEYl 


LDA 


KEYCLR 


IP MSB 














0EG4 


AD 


00 


Ci!) 


768 




LDA 


KEYDAT 


0EC7 


38 






769 




SEC 




0EC8 


iC) 






770 




RVS 




AR. 

0EC9 

0EC9 








771 








68 






COMNDl 


PLA 




OECA 


85 


95 




773 




ST A 


CMDTAB 


OECC 


68 






774 




PLA 




OECO 


85 


96 




775 




SFA 


CMDTABi-1 


OECF 


AD 


10 


CO 


776 




LDA 


KEYCLR 


0ED2 


20 


BA 


OE 


777 


MENU 2 


JSR 


RDKEr 


0ED5 


90 


FB 




7 78 




BCC 


MENy2 


0ED7 


as 


5D 




779 




STA 


CMD 


OeD9 


AO 


01 




780 




LDY 


#] 


OEDB 


Bl 


95 




731 


CMDl 


LDA 


(CMDTAB) . V 


OEDD 


C9 


3B 




782 




CMP 


tt' :' 


OEDF 


FO 


21 




733 




BED 


CMD4 


OEEl 


C5 


50 




7B4 




CMP 


CMD 


0EE3 


FO 


OC 




785 




BEQ 


CMD2 


0EE5 


20 


OC 


OF 


786 




JSR 


UPDATl 


OEES 


20 


OC 


OF 


787 




JSR 


UPDATl 


OEEE 


20 


OC 


OF 


788 




JSR 


UPDAT 1 


OEEE 


4C 


DB 


OE 


789 




J MP 


CMDl 


OEF 1 


20 


OC 


OF 


790 


CMD2 


JSR 


UPDATl 


0EF4 


Bl 


95 




791 




LDA 


(CMDTAB) , Y 


OEF 6 


35 


97 




792 




STA 


CMDLOC 


OEF a 


20 


OC 


OF 


793 




JSR 


UPDATl 


OEFB 


Bl 


95 




794 




LDA 


(CMDTAB) ,Y 


OEFD 


85 


78 




795 




STA 


CMDLOC+1 


OEFF 


6C 


97 


00 


796 




J MP 


(CMDLOC) 


OF 02 


20 


OC 


OF 


79 7 


CMD4 


JSR 


UPDATl 


OF 05 


A5 


96 




798 




LDA 


CMDTAB+1 


OF 07 


48 






799 




PHA 




OF OB 


A5 


95 




800 




LDA 


CMDTAB 


OFOA 


40 






801 




PHA 




OFOB 


60 






ao2 




RTS 




OFOC 


E6 


95 




803 


UPDATl 


INC 


CMDTAB 


OFOE 


DO 


02 




804 




BNE 


UPDAT2 


OF 10 


E6 


96 




805 




INC 


CMDTAB+1 


OF 12 


60 






806 


UPDAT2 


RTS 




OF 1 3 








807 




END 





;GET RETURN ADDRESS SO WE 

: KNOW WHERE DATA STARTS 

;THEN STORE LOCATION IN 

;THIS PAGE ZERO LOCATION 

; CLEAR KEYBOARD STROBE 

;READ KEYBOARD 

; IF CARRY CLEAR, DO IT AGAIN 

; STORE IN ITS OWN LOCATION 

:PUT 1 INTO Y 

;GET CHAR INDEXED BY Y 

; IS IT THE END OF COMMANDS 

; YES-THEN END 

; IS n A COMMAND 

; YES-BO OFF AND DO IT 

: INCREMENT 

; CMDTAB LOCATION 

; THREE TIMES 



i INCREMENT Y ONCE MORE 



***** END OF ASSEMBLY 



Novation 




